home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / zoetek / source / shckclck.dir / 00096_Stopwatch Routines.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  388 b   |  19 lines
  1. global stopwatchon, stopwatchpause, stopwatchval, bignil
  2.  
  3. on stopwatchInit
  4.   set stopwatchon to 0
  5.   set stopwatchval to 0
  6.   set stopwatchpause to 0
  7. end
  8.  
  9. on stopwatch
  10.   if stopwatchon and not stopwatchpause then
  11.     set x to the timer
  12.   else
  13.     set x to stopwatchval
  14.   end if
  15.   donum(1, bignil, 1, x / 3600 mod 60)
  16.   donum(4, bignil, 1, x / 60 mod 60)
  17.   donum(7, bignil, 1, x mod 60)
  18. end
  19.